Lingvistica's Spreken
///////////////////
$modl="SEMANTA alpha versie 17.01.19";
// $read_text="SEMANTA alpha versie tweeduizend zeventien.";
$smta_http=$_SERVER['HTTPS'] ;
$userip=$_SERVER['REMOTE_ADDR'];
include("conv.php");
include("text-isrt-func.php");
include ("smta-tlkd-func-0017.php");
require_once ("config.php");
require_once ("conv.php");
require_once ("chbt-tlrg-func.php");
require_once ("ipad-regn-func.php");
require_once ("ipad-lang-func.php");
require_once ("ipad-ifce-func.php");
require_once ("ipad-cntr-func.php");
require_once ("land-ipcd-func.php");
require_once ("text-isrt-func.php");
require_once ("chbt-date-func.php");
require_once ("xtrt-xxxx-func.php");
require_once ("calc-text-func.php");
// require_once ("smta-wrdv-func-0001.php");
require_once("tlkd-smts-func.php");
////////////
$site_datm=date("Y-m-d H:i:s", time());
$datm_itms=explode(" ",$site_datm);
$datm_datm=$datm_itms[0];
$datm_time=$datm_itms[1];
$zoek_datm="%".substr($datm_datm,5,5)."%";
// echo "
DATUM ".$datm_datm."ZOEK DATM ".$zoek_datm;
///////////////
$sqltref="SELECT * FROM `splt` where `datm` like '$zoek_datm' order by `datm` desc ";
echo "
URL ENCODED ".urlencode($line);
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$trefresult = mysql_query($sqltref, $link);
$tref_num = mysql_num_rows($trefresult);
// echo "
Aantallen ".$sqltref." ".$tref_num;
if ($tref_num == 0)
{
// echo "
".$line."--NO MATCHES FOUND CALL US on 31-162-313323
";
// exit;
}
else
{
echo "
Het gesprek tot nu toe ";
while ($row = mysql_fetch_assoc($trefresult))
{
$domn=$row['domn'];
$lnks=$row['lnks'];
$rchs=$row['rchs'];
$datm=$row['datm'];
$datm_itms=explode(" ",$site_datm);
$datm_datm=$datm_itms[0];
$datm_time=$datm_itms[1];
$levl=$row['levl'];
$datm_rslt[$datm_datm."!".$domn."!".$lnks."!".$rchs."!".$levl]=$datm_rslt[$datm_datm."!".$domn."!".$lnks."!".$rchs."!".$levl]+1;
}
}
// print_r($datm_rslt);
if($invr_corp == $rslt_domn)
{
echo "
DATM ".$rslt_datm." DOMN ".$rslt_domn;
}
echo "";
foreach($datm_rslt as $rslt_key => $rslt_val)
{
// echo "
RSLT KEY ".$rslt_key." RSLT VAL ".$rslt_val;
$rslt_itms=explode("!",$rslt_key);
$rslt_datm=$rslt_itms[0];
$rslt_domn=$rslt_itms[1];
$rslt_lnks=$rslt_itms[2];
$rslt_rchs=$rslt_itms[3];
$rchs_itms=explode("@",$rslt_rchs);
$vrag_rchs=$rchs_itms[0];
$vrag_lnks=$rchs_itms[1];
$rslt_levl=$rslt_itms[4];
// echo "
KEUZE ".substr($lnks,0,6);
if ( $invr_corp == $rslt_domn and $rslt_lnks != null)
{
echo "".$vrag_lnks." | ".$vrag_rchs." |
";
}
}
echo "
";
?>